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:>>>>>>>>>>>>>>>>>>>>>>>>>>> 
Module: Read Routines 

This module contains all but the very most primitive of 

of procedures < the routines that are resident are I is ted 

in the external spec's > that concern themselves with performing 

a read operation. 

FUNCTION ReadBiock< Parent : BVTE { !r8 } > : 
BOOLEAN 

Status : BH'TE { !r0 > 
RdErrCnt : BVTE ( !r1 > 
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>>>>>>>>>>>>>>>>>>>>>>>>>>> 
Function: ReadBlock 

This function assumes that the heads are positioned over the 
correct track and reads the block of data whose header 
matches the header that is made up of the cyl inder, head 
and sector information that is stored in memory. 

inputs: 

Parent : BVTE { !r8 } 

Outputs: 

ReadBlock : BOOLEAN { Zero flag, true if error in ReadBlock 
Status : BVTE { !r0 > 
RdErrCnt : BVTE { !r1 } 

Global variables Used: 

Cyl inder, Head.. Sector, Recovery 

Local variables Used: 

RdRetryCnt : BVTE { SrS } 
RdError : BOOLEAN { !r9/bit ? > 
RdExcept : BOOLEAN { Ir9/bit 6 > 
RdSuccess : BOOLEAN { IrQ/bit 5 } 
NoHdrFound : BOOLEAN { !r9/bit 4 > 
SectorsRead: BVTE { !rA > 

Algorithm: 

BEGIN 

SetDeadManTimeK ReadBlock, Parent > 

RdRetryCnt := 10 

RdErrCnt := 

RdError := False 

RdExcept := False 

NoHeaderFound := False 

SectorsRead := 2 * NbrSctrs i try to find header for t«so rotations 
REPEAT 

RHeaderC 1 1 := HiCy finder 



RHeader [ 
RHeader! 
RHeader t 
RHeader I 
RHeader I 
RHeader t 



] : = LoCy I i ruder 
]/bits 7:6 := Head 
]/bits 5:0 := Sector 



= Invert* RHeader I 1 3 
= Invert* RHeader! 2 1 
= Inverts RHeader! 3 1 



ReadRrray! RDummy-1 1 := 



Set-up external ram address counter for READ 
HseIG: 1 := Disk < — > Mem 
WHILE SectorHark DO BEGIN END 
StartL := True 

WHILE NOT* SectorDnL ) DO BEGIN END 

Status := Status_Port 

StartL := False 

rise 10: 1 := Z8 <— > hem 



CRSE Status. State OF 
Norma I EndState 



RdSuccess := True 



NoMa ten ingHeader Found : RdSuccess := False 

RdError := True 



Abnormal State 



NoHeaderFound := True 

Reset JStateMach i ne 
Rbort 



IF Status.ServoErr OR NOT* Status.ServoRdy > 
THEN 

RdError := True 
RdExcept := True 

IF Status.CrcErr RND RdSuccess 
THEN 

RdError := True 
RdErrCnt := RdErrCnt + 1 
RdRetryCnt := RdRetryCnt - 1 

ELSE 

IF RdError 
THEN 

BlockMove< Buffer2, RBufferl > 
RdRetryCnt := RdRetryCnt - 1 



> UNTIL NGT< Recovery > OR NGT< RdError > OR < RdRetryCnt = > OR 

> RdExcept OR < NoHeaderFound > 

> ClearDeadllanTi flier 

> Status := ir9 

> END 

>>:>:>>>>>>>>>>>>>>>>>>>:>>>>>>>>>>> 
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ReadBlock: 

Clr IrQ ; clear boo leans 

Ld !r8,«10 ; RdRetryCnt := 10 

Clr !rB ;ErrCnt := 



find 



BiskStat,*$FF-Mr_jDp ;make certain we are reading 



RdBlk_fipt: Ld »r2, *.HIBVTE. RHeader ; ini t iai ize gaps 

Ld !r3,*.L0UBYTE. RHeader 

Cal i Load_Header 

Ld !rQ,*Q 

Lde §!!r2Jr0 

Ld !r2,*.HIBVTE. < RDummy-1 > 

Ld !r3,*.L0WBVTE. < RDummy-1 ) 

Lde 3!»r2, !rO 

I new !!r2 

Lde e!!r2. !rO 

Jr Do_Read 

Read_Fast: Cir !r9 ;ciear boo leans 

Ld !r3,*10 ;RdRetryCnt := 10 

Cir !rB ;ErrCnt := 

find DiskStat,*$FF-Ur_Op ;make certain we are reading 

Ld ?r2,*.H!BVTE. C RHeader+2 > ;get location of Sector 

Ld !r3',*.L0WBVTE. < RHeader+2 ) 

Lde !rO,0!!r2 ;get current Head /Sec tor value 

find !rO,*$CQ ;mask out old sector ua lue 

Or IrO.Sector ; merge in new sector 

Lde G!!r2, !rQ ;and store it 

Rdd 1^*3 ;get location of Inverse Head /Sec tor- 
Coin !r0 

Lde §Mr2,!rO ;and store it, too! 

Do_Read: Cal! Rd_Resident ;go internal to the ZS 

Ld !r1,!r0 ;CRSE Status. State 

find !r1,«$0F 

Or !rfi, !rfi 

dr Z.,RdBlk_NoHdr 

Cp !r1,*NorroJState 

Jr Nz,RdBik_ftbNons 

RdB Ik-Horn: Or ! rQ, #RdSuccess 

Ld . !M,!rG ;IF ServorErr OR NQK ServoRdy > 

Tm !r1,*SeryoErr 

Jr liz^RdJServoErr 

Tin ! r 1 , *SeruoRdy 

Jr Zj,Rd_ServoErr 

RdJServoOk: Tm ! rO, *CrcErrL ; IF Status. CrcErr 

Jr Z,Rd_BadCrc 

Tm !rQ,*WrtNvldL ; OR Status. EccErr 

Jr Z, Rd_BadEcc 

RdJioCrcErr: Tm !r9,*RdError ; THEN IF RdError 

Jr Nz,RdBik_Bmove 

RdB I kJUn til: Tir Excp t_S ta tus f *Recovery 

Jr Z,RdBik_£nd 

Tm ?r9,»RdError 

Jr Nz,RdB_Rpt1 

RdBlk_End: Ld RdErrCht, SrB 

Ld IrG, ?r9 ; send status back to caller 

Ld RdStat, *r9 



Tern 
Ret 



lrO,*RdError ;set zero flag if error 



Rr-IP Ri-k + 1 • 

rfutf—JipX. I . 


La 


! rz , * . n I dt I fc . zeroneader 




La 


! r j , * . Luwtf y 1 1 . <_er oneaaer 




r- _ 1 i 

CrU I 1 


DuriK_JUQ i i 




Jp 


RdBlk_Rpt 


nuts i K_nDrlorin . 


(•■ — I i 

tai i 


ne^e t_b tnacn 




Ld 


!rft, !r0 




Cai ! 


Abort 


RdB!k_floHdr: 


find 


! r9, *$FF-RdSuccess 




Or 


!r9,*Error 




Tm 


* rB, *Hdr_J1 1 snatch 




Jr 


Nz,Rd_HdrErr 




Or 


!rB,*Hdr_J1i snatch 




Tm 


Excpt_Stat,*Recovery ;auto offset DHLS' if recovery on 




■Jr 


Z.RdBlkJUnti 1 




UQ 1 i 


ReSeeK jset auto_otfset 




jr 


ndDiKJLirit i I 


Hd_JHdrtrr . 


Or 


i f> i i_j._.r~. i i Pi _ir~,_ ,_ _ ,,. 
!ry , "HdFioHdrrnd + RdError 




Jr 


RdBlkJEnd 


Rd_8ervoErr : 


ur 


fry, "Hdfcrror + ridc>rvotrr f infcri ndtrror HnU Hdbervofcrr 




Jr 


RdBik_End 


Rd_BadCrc : 


Or 


*r9,*RdError+RdCrcErr ; ELSE 




Inc 


!rB 




Or 


!rB,*CrcStat 




Tm 


!r0,*Mrtf1vldL ; check for Ecc error too 




Jr 


Nz,Rd_B_£rc_1 


RD_Bad 1 : 


Or 


!rB,*Eccbtat 




Tin 


Excpt_Statj,*Recovery ;ReSeek only if recovery is on 




■Jr 


Z , nu_B_urc_ 1 




Tm 


DiskStat,*GffsetJQn .set auto offset if needed 




Jr 


Nz.,Rd_B_£rc_1 




L-a! I 


ReSeek 


fid_JB_Crc_l : 


Djnz 


IrSj.RdBlkJlJnti J 




Jr 


RdBik_£nd 


Rd_BadEcc : 


Or 


! r-9 , *RdError+RdCrcErr 




!nc 


!rB' 




Jr 


Rd_Badt 


RdBlkJBmoue: 


Ld 


!r2,#.HiBVTE. RBuf_To_Buf2 




Ld 


!r3 J «.L0MBVTE. RBuf_To_Buf2 




Ca l I 


BankJCai I 




Jr 


Rd_B_Crc_1 
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